home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Space Imagery
/
Space Imagery.iso
/
menu
/
menu.bak
next >
Wrap
Text File
|
1995-03-02
|
1KB
|
26 lines
CLS
STARTOVER:
SHELL "SPACMENU.COM"
CHOOSEN:
A$=INKEY$
IF A$=CHR$(49) THEN SHELL "CD\EARTH":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
IF A$=CHR$(50) THEN SHELL "CD\HISTORY":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
IF A$=CHR$(51) THEN SHELL "CD\NASA":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
IF A$=CHR$(52) THEN SHELL "CD\PLANETS":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
IF A$=CHR$(53) THEN SHELL "CD\SATELITE":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
IF A$=CHR$(54) THEN SHELL "CD\SHUTTLE":SHELL "svga /a":SHELL "CD\MENU":GOTO STARTOVER
IF A$=CHR$(55) THEN SHELL "CD\PROGRAMS\CIRCUM":SHELL "CIRCUM.EXE":SHELL "CD\MENU":GOTO STARTOVER
IF A$=CHR$(56) THEN SHELL "CD\PROGRAMS\COSMOS":SHELL "COSMOS14.EXE":SHELL "CD\MENU":GOTO STARTOVER
IF A$=CHR$(57) THEN SHELL "CD\PROGRAMS\GEOCLK":SHELL "GEOCLK":SHELL "CD\MENU":GOTO STARTOVER
IF A$=CHR$(48) THEN SHELL "CD\PROGRAMS\SKYGLOBE":SHELL "SKYGLOBE":SHELL "CD\MENU":GOTO STARTOVER
IF A$=CHR$(27) THEN CLS:SHELL "CD\":END